GT Incident Characteristics:
- 10 most recent complete calendar years (2012-2021)
- Significant
- Onshore Pipeline, including valve sites
gt.inc %>%
mutate(INSTALLATION_YEAR = parse_number(INSTALLATION_YEAR,na = c("NA","UNKNOWN")),
INSTALLATION_DECADE = INSTALLATION_YEAR - INSTALLATION_YEAR %% 10,
INSTALLATION_DECADE = if_else(INSTALLATION_DECADE <= 1930, 1930, INSTALLATION_DECADE),
INSTALLATION_DECADE = replace_na(INSTALLATION_DECADE, 1920))%>%
filter(SIGNIFICANT == "YES",
ON_OFF_SHORE == "ONSHORE",
between(IYEAR, 2012,2021),
SYSTEM_PART_INVOLVED == "ONSHORE PIPELINE, INCLUDING VALVE SITES" )